home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pasclern.zip / STRINGS.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  405b  |  16 lines
  1. PROGRAM TURBO_Pascal_strings;
  2.  
  3. VAR first_name   : STRING[10];
  4.     initial      : CHAR;
  5.     last_name    : STRING[12];
  6.     full_name    : STRING[25];
  7.  
  8. BEGIN  (* main program *)
  9.   first_name := 'John';
  10.   initial := 'Q';
  11.   last_name := 'Doe';
  12.   WRITELN(first_name,initial,last_name);
  13.   full_name := first_name + ' ' + initial + ' ' + last_name;
  14.   WRITELN(full_name);
  15. END.  (* main program *)
  16.